home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / vbpxen.zip / ITEMEDIT.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-10-07  |  6KB  |  165 lines
  1. itemedit
  2. Tape Inventory
  3. Form1
  4. ButtonFind
  5. tapenumber
  6. Label1
  7. Tape number:
  8.     tapetitle
  9. ButtonPrior
  10. &Prior
  11. ButtonNext
  12. &Next
  13. Label2
  14. Title
  15. ButtonFirst
  16. &First
  17. ButtonLast
  18. &Last
  19. Label3
  20. Custmomer checkout:
  21. custnum
  22. inout_code
  23. Label4
  24. In/Out:
  25. ButtonEdit
  26. &Edit
  27.     ButtonNew
  28. ButtonOK
  29. ButtonCancel
  30. &Cancel
  31. ButtonDelete
  32. &Delete
  33. ButtonDone
  34. E&xIt
  35. Text1_Change
  36. ButtonFirst_Clicki
  37. GetCustomerRecW
  38. DBFIRST
  39. custnumber
  40. custrecN
  41.     custnumer
  42. custlastname
  43. lastname
  44. custfirstname
  45.     firstnameC
  46. ButtonDone_Click*
  47. custedit
  48. FieldsToForm
  49. DB_OKa
  50. ButtonNext_Clickv
  51. DBNEXT
  52. ButtonPrior_Click
  53. DBPRIOR
  54. ButtonLast_Click
  55. last4
  56. DBLASTB
  57. ButtonEdit_Click
  58. DoEditMode
  59. ButtonFirst{
  60. visible
  61. FALSE
  62. ButtonNext
  63. ButtonPriorx
  64. Button&
  65. ButtonLastV
  66. ButtonEdit<
  67. ButtonDone
  68. ButtonOK
  69. TURE%
  70. ButtonCancel
  71.     iEditMode,
  72.     iViewMode
  73. DoViewMode
  74. ButtonOK_Click|
  75. ButtonCancel_ClickL
  76.     UpdateRec
  77. CUSTOMER_TABLE
  78. Form_Click
  79. Form_LinkClose
  80.     Form_Load
  81. addressa
  82. FormToFields
  83. ButtonDelete,
  84. UpdateCustomerRec
  85. ButtonFind
  86.     ButtonNew
  87. ButtonFind_Click
  88. DBKEY$
  89. DBKEYED>
  90. ButtonNew_Click
  91. SetEditMode
  92.     EDIT_MODE
  93. ADD_MODE
  94.     VIEW_MODE
  95. enabled
  96. iMode.
  97. numvalueN
  98. blankcustrecT
  99. AddCustomerRec
  100. ButtonDelete_Click
  101. DeleteCustomerRec^
  102. savecustrec
  103. MB_OKCANCEL
  104. IDCANCEL
  105. VIEWMODE
  106. custnumber_Change8
  107. MB_ICONQUESTIONm
  108. GetCustomerRecForUpdate
  109.     UnlockRecF
  110. MousePointer&
  111. POINTER_HOURGLASS
  112. POINTER_DEFAULT
  113. screen
  114. GetItemRec{
  115. blankitemrec
  116. saveitemrec
  117. tapenumber
  118.     tapetitle
  119. itemrec
  120. itemdesc
  121. itemnumber
  122. ITEM_TABLE
  123.     tapeumber1
  124. DeleteItemRec
  125. itemedit
  126. GetItemRecForUpdate
  127. AddItemRec
  128. UpdateItemRec
  129. custnum
  130. caption
  131. inout_code\
  132. ButtonFirst_Click
  133. ButtonDone_Click
  134. FieldsToForm
  135.     inout_code.caption = itemrec.inout_code
  136. ButtonNext_Click
  137. ButtonPrior_Click
  138. ButtonLast_Click
  139. ButtonEdit_Click
  140.   Move the fields to the form againa
  141.   In a network environment, someone could have
  142.   changed the record since last time is was showns
  143. ButtonOK_Click
  144.   Assume if one of these failed, a message was
  145.   already displayed as part of the function.
  146.   What to do if the add or update failed?i
  147.   For now invoke the CANCEL routine as thoughh
  148.   the user clicked the cancel button.s
  149.   Return to view mode 
  150. ButtonCancel_Click
  151. Form_Load
  152. FormToFields
  153. ButtonFind_Click
  154. SetEditMode
  155.   If a record was locked, unlock itt
  156.   this may already have been done,
  157.   but make the function call again to be safe...
  158.   Set global value as mode indicator
  159. ButtonNew_Click
  160. ButtonDelete_Click
  161.   check if user pressed OK or CANCEL
  162. OK to delete?"
  163. DELETE
  164. Delete failed, code: "
  165.